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A Programming Quickie: 


19 PLOT 12, 3, 64, @ The program pokes graphics and 

28 FOR Y = @ TO 255 ADCII characters into screen memory 
36 FOR X = 28672 TO 32767 and lets you see which ones might 
49 POKE X, Y make a good background for an ob- 
50 NEXT X ject or area. Takes a long time and 
66 NEXT Y drives you nuts. (Mike DeVito) 


This issue is a potpourri of items; a true stewpot full of different 
things fram our wide-ranging membership. But first, a bit of news: 

After six years of meetings at Compuworld, CHIP will be moving its 
meetings to Marshall High School, starting with the September meeting. 
We would like to thank Campuworld's Fred Calev for his unselfish support 
over these past years - our "formative years" - for the time, the space, 
the library facilities, and for his time and effort. Thanks, Fred! 
Marshall is on Ridgeway Ave., between Dewey and Lake, easy to reach from 
route 164, West Ridge Rd., and Mt. Read Blvd. Don't miss the cnange!! 
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Meeting Schedule: 

Although we are moving, the June, = and August meetings will still 

be held at Compuworld. A brief schedule: 

Tues, June 5, Campuworld at 6:38 (get — at 6 for disk copying, etc.) 
Tues, July 18 Campuworld at 6:30 

Tues, August 7, Campuworld at 6:3¢ 4 . " 

Tues, Sept. 4, Marshall High at 7:30 


Contents s 


- Survey from Glen Galloway of 88808 Series owners for library 

- Instructions for "Capture the Flag", a new game from D.B. Suits 

- Information about a Rochester Summer Enrichment Program 

- FORTH Seminar: Lesson 2, Numeric Operations, by Dr. Jim Minor 

- FORTH Seminar: Lesson 3, Data Storage & Transmission, by Dr. Jim Minor 
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The year is 1948. Somewhere in Europe 
a battle rages between two armies .... 


Overview 
This is a game program for two players. One player is the 
commander of the Blue Army. The other player commands the Red Army. 
The object of the game is to capture the enemy's flag, or, failing 
that, to destroy all the enemy's forces. = 
The battle begins with the two armies on opposite sides of a 
battlefield. Each army has the following military forces: 


1 Plag (headquarters) 

1 Artillery unit 

3 Tank units (numbered 1 — 3) 

9 Infantry units (numbered 1 - 9) 
7 Airplanes 

8 - 6 Land mines. 


Players alternate taking turns; each turn allows for six moves. 
(However, some kinds of commands use up more than one move.) In 
response to the COMMAND: prompt, the player orders the movements 
and activities of his forces. 


The Command line 

A command is entered entirely on one line by specifying the 
unit which is to act and the action to be taken. Only the first 
letter of a military unit or action is used. For example, "ARTILLERY® 
must. be entered as "A", and "MOVE" must be entered as "M". Thus, 
the command to have the Artillery unit Move would begin with “AM"; 
this would be followed by a number designating one of the eight 
allowable directions as given in this chart: 


8 1 2 
e 8 3 
6 5 4 


The command "AM3" would move the player's artillery unit one position 
to the right; "AM6" would move the artillery unit down and to the 
left; and so on. 

In cases of infantry and tanks, not only the kind of military 
unit ("I" for "INFANTRY", "T° for "TANK"), but also the number of 
the particular unit must be specified. Thus, the command "I2M4" 
would command Infantry unit #4 to Move in direction 4 according to 
the above chart, i.e., one position down and to the right. Entering 
"T3S6.2" would command fank unit #3 to Shoot in a direction down 
and to the left. (Note that decimal fractions are allowed for the 
direction of fire but not for the direction of movement.) 


In many instances the command may be shortened. A command which is 
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a repetition of the last command may be entered simply as "R". For 
example, instead of moving the second tank unit three spaces to 
the right with three explicit commands ("T2M3", "T2M3", "T2M3"), 
only the first "T2M3" need be entered. Then "R" and then another 
"R" will repeat the first action twice more. Also, a command whicn 
differs from the previous command only in the direction of movement 
or in the direction of firing can be repeated simply by typing in 
the new direction. For example, instead of using the three commands 
"T3M3", "T3M3" and "T3M5" to move the third tank unit twice to the 
right and then down one, these three commands will suffice: "T3M3", 
"3", "5". Similarly, artillery might be fired first in direction 
3.2 by means of the command "AS3.2". A subsequent command ot "3.25" 
will command the artillery unit to fire in the new direction. 


Strength Values 

The damage which bombs, artillery fire, tank fire and hand-to- 
hand combat will cause to the various units is calculated in terms 
of "strength values". Each unit begins the game with a certain 
strength value, and if that value should ever reach zero, the unit 
is considered dead and will be erased from the screen. 

The following paragraphs discuss in detail the various opjects 
and actions involved in the game. 


The Battlefield 

The battlefield is a green plain cut in half by a river. There 
is an old road which roughly circles the field and crosses the 
river at two bridges. The brownish areas are mountains. 


Plags : 
Each player has a flag: blue and white for the Blue Army, red 
and white for the Red Army. The flags are positioned randomly on 
opposite sides of the battlefield at the beginning of the game and 
may not be moved. 


Capturing the Plag 

Plags cannot be destroyed by artillery or tank fire or by bombs, 
The only way a flag can be captured is by moving one of your units 
into the square occupied by the enemy's flag. 


Land Mines 

Before the battle begins, each player has the option of burying 
a maximum of six land mines on unoccupied spots on his side of the 
battlefield. (Mountain, road and river areas may not be mined.) 
Anything which subsequently travels over that mine will set off 
the mine and suffer 19-59 strength units of damage. (In order to 
make the locations of these mines secret, the one player should 
not watch as the other lays his mines.) 


ARTILLERY 
Each player begins the game with one artillery unit. 
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Symbol: 


Blue Army has white on blue background; Red Army has black on 
red background. 


Strength 
Artillery units begin the game at strength = 99. When the 
strength falls below 25, the color of the unit changes: Blue 
Army's artillery becomes black on a cyan background, and Red 
Army's artillery becomes black on a magenta background. If 
the strength level reaches zero, the unit is dead and is erased 
from the battlefield. 


Move 
Command format: Amd, where d, the direction, is an integer 
from 1-8 inclusive. For example, "AM6" commands the artillery 
unit to move one position down and to the left. 


Counts as two moves, even though the unit will go only one 
Square at a time. 


Artillery may not go over mountains or into a square occupied 
by any other unit or its own flag. If artillery moves into 
water, it sinks and is lost. I£ you want to move artillery 
across water, you must use one of the bridges. 


Each move by an artillery unit decreases its strength level 
by three, 


NOTE: If it is winter and snowing, there is a good chance of 
heavy snows temporarily impeding the movement of artil- 
lery. 


Shoot 
Command format: ASd, where d, the direction of fire, is any 
number from 1-9 inclusive (9 is treated as 1). Decimal fractions 
are allowed. Por example, "AS3.2" commands the artillery unit 
to shoot in a direction to the right and slightly down. 


After entering the command, you will be asked to choose a 
distance (1999-3998 yards), where 3999 yards is roughly half 
the screen width. 

Counts as two moves. 

Artillery, unlike tanks (see below), shoot over anything, 
including mountains, and the shells explode at the specified 
distance. 


Bach shot decreases the artillery's strength by two. 
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Each artillery shell will cause between 19-59 strength units 
damage to whatever it hits. 


Engage in hand-to-hand combat. 

Command format: AEu[m], where u is the enemy unit type ("A" 
for "ARTILLERY", "I" for "INFANTRY" and "I" for "TANK"), and, 
in the case of enemy tanks and infantry, m is necessary to 
identify the enemy unit's number. (The square brackets are 
not part of the command; they only indicate that the mis not 
always necessary.) For example, "“AET2" commands the troops 
of the Artillery unit to engage in hand-to-hand combat with 
the troops of the enemy tank unit #2. 


Your artillery unit must be physically touching (side or 
corner) the enemy unit in order to engage in hand-to-hand 
combat. 


Counts as one move. 


The computer will print out the results of the battle. The 
attacker has a slight advantage over the defender. 


TANKS 
Each player begins the game with three tank units. 


Symbols: [i] 2] [3] 


Blue Army has cyan on a black a aac Red Army has red on 
a black background. 


Strength 
Each tank unit begins the game at strength = 99. When the 
strength level falls below 25, the color of the tank unit will 
change: Blue Army's tanks become black on a cyan background, 
and Red Army's tanks become black on a magenta background. If 
the strength level reaches zero, the tank unit is dead and is 
erased from the battlefield. 


Move 
Command format: fnMd, where n is the tank unit number (1-3), 
and d, the direction of movement, is an integer from 1-8 
inclusive. For example, "T2M1" commands tank unit #2 to move 


up. 
Counts as one move, 


Tanks may not go over mountains or into any occupied square 
(except, of course, the enemy's flag). If a tank moves into 
water, it sinks and is lost immediately. If you want to move 
a tank to the other side of the river, use one of the bridges. 


* Capture the Flag v7.83 page 6 


Each move of the tank decreases its strength level by two. 


Tanks have an advantage over artillery and infantry because, 
under certain conditions, they can go’two squares at a time 
instead of just one. The conditions are: 


(1) the tank is on, or is moving onto, a road or bridge; 

(2) the extra square it would move to (in the same 
direction) is also a road or bridge (or water--watch 
out for that!); and 

(3) it is not winter. 


Moving that extra square is done automatically if the above 
conditions are satisfied. The extra square does not cost an 
extra move, nor does it further decrease the tank's strength 
level. ; 


NOTE: if it is winter and snowing, there is a good cnance of 
heavy snows temporarily impeding the movement of a tank. 


Shoot 
Command format: TnSd, where n is the tank unit number (1-3), 
and d, the direction of fire, is any number from 1-9 inclusive 
(9 is treated as 1). Decimal fractions are allowed. For example, 
"T1S2.7" commands tank unit #1 to shoot in the direction 2.7 
according to the direction chart. 


. 


Counts as two moves. 


Tanks have a shorter range than artillery. Moreover, they 
cannot shoot over mountains or other obstacles, i.e., a tank 
Shell will hit the first thing in its path. Hence, you cannot 
specify the distince as you can for artillery. 


Each shell will do between 1-29 strength units damage. 


Engage in hand-to—hand combat. 

Command format: TnEu[m], where n is the tank unit number (1-3), 
u is the enemy unit type to be attacked ("A" for "ARTILLERY", 
"I" for "INFANTRY" and "fT" for “TANK"), and, in the case of 
enemy tanks or infantry, m is necessary to identify the unit 
number. (The square brackets are not part of the command; they 
only indicate that the mis not always necessary.) For example, 
"T2EA" commands the troops of the second tank unit to engage 
ee combat with the troops of the enemy beeen: 
unit 


Your tank unit must be physically touching (side or corner) 
the enemy unit in order to engage in hand-to-hand combat. 
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Counts as one move. 


The computer will print out the results of the battle. The 
attacker has a slight advantage over the defender. 


INFANTRY 
Each player begins the game with nine infantry units. 


Symbols: #2 #9 
99} |99} |[99} ... {99 


Blue Army has white on a blue background; Red Army has black 
on a red background. 


Strength 
Each infantry unit begins the game at strength = 99. At all 
times the strength level is printed as part of the infantry's 
symbol itself; for example, 


3 
65 


indicates infantry unit #3 at strength = 65. If the strength 
level reaches zero, the unit is dead and is erased from the 
battlefield. 


Move 
Command format: InMd, where n is the infantry unit number 
(1-9), and d, the direction of movement, is an integer from 
1-8 inclusive. For example, "I2M5" commands infantry unit #2 
to move down. : 


Counts as one move. 


Infantry may not move over mountains or into any occupied 
Square (except, of course, the enemy flag). Infantry units, 
unlike tanks and artillery, may move across water. 


NOTE: if it is winter and snowing, there is a slight cnance 
of heavy snows temporarily impeding the movement of 
infantry. 


Engage in hand-to-hand combat. 
Command format: InEu[m], where n is the infantry unit number 
(1-9), u is the enemy unit type to be attacked ("A" for 
"ARTILLERY", "I" for "INFANTRY" and "T°" for "TANK"), and, in 
the case of enemy tanks or infantry, mis necessary to identify 
the unit number. (The square brackets are not part of the 
command; they only indicate that the mis not always necessary.) 
Por example, "I2EI7" commands the troops of the second infantry 
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unit to engage in hand-to-hand combat with the troops of the 
seventh enemy infantry unit. 


Your infantry unit must be physically touching (side or corner) 
the enemy unit in order to engage in hand-to-hand combat. 


Counts as one move. 


The computer will print out the results of the battle. The 
attacker has a slight advantage over the defender. 


AIR STRIKES 
Each player begins the game with a small air force which may be 
called upon to drop bombs on enemy territory. 


Command format: AIR STRIKE (or just AIR). 


After calling up an air strike, you will be asked whether you 
wish a Short range or Long range strike. A short range strike 
will bomb enemy territory just across the river, while a long 
range strike will bomb deeper into enemy territory. 


NOTE: Your air force is not very accurate. Some long range 
strikes might drop some bombs fairly close to the river, 
and some short range strikes might drop some bombs deeper 
into enemy territory. 


Each plane will drop exactly one bomb, but the number of planes 
sent out for the air strike will depend upon the weather: 


Weather Number of planes sent 
Heavy fog 8 
Overcast 3 
Cloudy 4-6 
Clear 7 
Snow 8 


Each bomb will do between 19-59 strength units damage. 
An air strike counts as 3 moves. 


BRIDGES 

There are two bridges, each of which begins the game at a 
strength level anywhere between 56 and 89. Any tank or artillery 
shell or bomb which explodes on a bridge is likely to decrease 
the bridge's strength somewhat. If a bridge's strength level- 
reaches zero, the bridge is destroyed, and anything on it at 
that time will suffer some damage. (Tanks and artillery will 
drop into the water and sink.) 
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MOUNTAINS 
The yellowish-brown areas of the battlefield are mountains, 
across which nothing may move (except the air force.) 

RIVER 
The blue river in the center of the battlefield presents no 


obstacle to the movement of infantry units, but artillery and 
tanks must use bridges to get across, 


WEATHER 
From time to time the weather is likely to change. There are 
five states of weather: heavy fog, overcast, cloudy, clear 
and snow. Snow comes only during the winter months, of course 
(approximately November through March). 


The first snow of winter will turn most of the battlefield 
white, and the more it snows during winter, the longer it will 
take to melt away in the spring. During the winter months the 
movement of artillery, tanks and infantry may be slowed because 
of heavy snows. Your air force will not fly when it is snowing 
(nor, in the spring, summer and fall if there is a heavy fog). 


WINNING THE GAME 
The first player to capture his enemy's flag or to destroy 
all his enemy's forces (not counting the air foxes) is the 
winner. 
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HORIZON 


2376 RIDGE ROAD WEST 


across from the Greece malls) 


Enrichment Courses 


for Grades 4 — 12 


COMPUTERS 
MATHEMATICS 
§.A.T. PREP. 


SUMMER 1984 


RECTORS = Jerry Taylor 964-3319 
Janes Barry 436-2383 


COURSE DESCRIPTION: 


COMPUTER COURSES for Grades 7-12 
A-i: Introduction to Microcomputers 
A-2: Intermediate B.A.S.I.C. 

A-3: Graphics, Animation, and Sound 
A-4: Introduction to Word-Processin: 
A-5: Introduction to LOGO 

A-6: Introduction to Pascal 


COMPUTER COURSES for Grades 4-6 
B-1: Feeling Comfortable 
with the Computer 
B-2: LOGO (Beginners) 
B-3: LOGO (Intermediate) 
B-4: Introduction to Word-Processince 


MATH-9S (Course I) PREP for Grades 7- 
C-1: Operations with Real Numbers 
C-2: Equations and Inequalities 
C-3: Exponents and Polynomials 

C-4: Factoring and Fractions 


PRE-ADVANCED MATH for Grades 10-i2 
D-i: Conic Sections 

D-2: Functions and Graphing 

D-3: Trigonometry Identities 

B-4: Complex Nuabers; Polar Graphincs 


PRE-CALCULUS for Grades 11-College 
E-i: Limits and Continuity 

E-2: Derivatives and Differentiatior 
E-3: Applications of Calculus 

E-4: Integration 


$.A.-T. PREPARATION COURSES 
F-is Mathematics 
F-2: Verbal 
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INSTRUCTORS 

r instructors all possess New York 
ate Teaching Certification and have at 
ast a Master’s Degree or beyond. Each 
structor has at least 10 years of suc- 
ssaful teaching experience. Our staff 
mbers are proven professionals with a 
story of being able to aotivate young- 
ers to reach their highest potential. 
e credentials and recommendation files 

all of our staff are open to public 
spection at any tine. We are very 
oud of our instructors. e 


FACILITIES 

@ HORIZON Academy for Learning leases 
s facilities from St. John’s School 
cated at 2376 West Ridge Road, across 
om Long Ridge and Greece Towne Malls. 
e school isa serviced by the RTS bus 
ne. The Academy utilizes a fully- 
uipped computer laboratory (complete 
th Apple II micro-computers, printer, 
dad color monitors), modern classroonas, 
vatory facilities and office space. 
rents are encouraged to visait our fine 
cility at any tine. 


CLASS SIr2Z2zE 

is our firm belief that smaller class 
ze allows for a greater degree of pos- 
ive interaction between the student 
ad the instructor. For this reason, we 
mit our classes to a MAXIMUM of 15 
udents (most are smaller). In our cona- 
ter classes, we have a rnaxiranum of 2 
udents per computer. In this way we 
ea best able to neet the needs of all 
our students. 


SCHEDULE 


Gur daily schedule runs from 9:00 AM to 
12:00 noon. Class periods are either 60 
or 90-minutes in length. The following 
chart will show you which classes are 
effered during which time periods. The 
code letters are those from our course 
descriptions.... 


| WEEK 1 9:00 1! 10:00 1! 11:00 #1 
SSSSBSSSseeessssessszssz2ses2s223522S222=== 
1 July 3 1! C-1 § C-2 1 Eel I 
1 to @erwnmennwe == Pome meow eer ee eoow oem omer + 
| July 7#e! A-1, B-1 | A-S, B-2 1 
BSS S 8559953233552 352553 22252552232 FSS5=5= 
1 July 9 1 c-3 | c-4 I E-2 1 
i] to a tel Oe ee - 
1 July 13 | A-1, B-1 | A-4, B-2 | 
BSSSSASSSSSSASSSASSAASSBII“ZBZATSZI*SASBSS3A=== 
| July 16 ! D-1 =~ D-2 1 E-3 | 
1 to Pere sem mm Be em mH He me me Pe ee eer eK - 
| July 20 | A-2, B-3 | A-3, B-4 ' 
BSSSSSSSASSSSASSSSSSSASSSSASAISSAAWAWSISBAS=SSZ=== 
| July 23 ! D-3 | D-4 | E-4 ! 
i] to tree oon Prem em ew em mn Ge eww ew we > 
| July 27 | A-2, F-1 | A-6, F-2 ! 


PTrrTTirrrirtrrrirtrtrrrrttrrtrttrtrt ttt ttt 

ee NOTE: First session (July 3-7) will 

e--- «60rrun Tuesday-Saturday. All other 
sessions are Monday-Friday. 


REGISTRATION 

All courses are S-days in length (either 
one or one-and-one-half hours). Courses 
are NOT sequential and smay be taken in 
ANY order. Registration fee for each 
course is $30.00. A (non-refundable) 
deposit of $5.00 will reserve a space. 
The balance ($25.00) is due 14-days be- 
fore the first day of class. You will 
receive a “Confirmation Packet” with 
complete details upon receipt of your 
registration fee. 


HORIZON - Academy for Learning 
1156 Walker-Lake Ontario Road 
Hilton, New York 14468 
Telephone: (716) 964-3319 = 


ATTENTION: Parents, teachers, counselors 


\\ 9 vila, 


~ Ze - HORIZON - Acadery for Learning os a. 
: --- Registration Form --- 


Student’s Nanzne 


Parents’ Nanes 
Address 


City Zip Telephone 


COURSE(S) DESIRED (use code letters) 


Check one: Enclosed is a deposit of $5.00 per course = $ 


Enclosed is full fee of $30.00 per course = $3 


NOTE: Register early! Enrollment is limited tc 15 per class on a 
first-come, first-served basis. Please make checks payable to: 
“HORIZON - Academy for Learning.” Mail this ‘form along with 
your check to: 

HORIZON - Academy for Learning 
e/o 1156 Walker-Lk.Ontario Rd. 
Hilton. New York 14468 


CHIP FORTH COURSE 
Springs 1984 


James C. Minor 


References: "FORTH FUNDAMENTALS"» Volume Is by C. Kevin McCabes 
dilithium Presss 1983. 
(Based on fis-Forth ses used in 8080 and Z80 systems). 


Software’ CHIP disk #46 (FORTH.PRG)s disk #47 (FORTH starter screens with 
the "old” line editor)» and disk #84 with the "new"»s Brodies 
line editor). This is the fig-FORTH version of FORTH as 
implemented for an 8080 microrrocessor. 


Other resources: 


*®STARTING FORTH” bys Leo Brodies Prentice-Hall» 1981. 
The first generally available text on FORTH. Cute 
drawings but uses FORTH inc.’s own dialect of FORTH and 


-it has NO index! !!} = 


* FORTH PROGRAMMING? by Leo J. Scanlony Howard Ww. Samsys 
1982. Not a bad little book» I almost used it 3s 

2 Primers reference excerpt it uses the 79-Standard 
version of FORTH in addition to Fis-FORTH. More 
illustrations send more practical examples than "FORTH 
FUNDAMENTALS”. 


FORTH DIMENSIONS. Bi-monthly publication of the FORTH 
Interest Group (FIG). Roushly same sizes formats and 
ideas es COLORCUE. 


®INSTALLATION DOCUMENTATION for FORTH in the COMPUCOLOR II” 
version 1.0.0 by Dr. James C. Minors available from 

CHIP librarians 1982. General purrose reference to 

the nature of the FORTH code delivered on disks #46 and 
$47. 


®Installation Documentation for Tiny-PASCAL in fis-FORTH 
for the COMPUCOLOR II with Additional FORTH Screens”» by 
Dr. James C. Minors available from the CHIP librarians 
1983. Gives backsround information and instructions on 
using the "new" line editor on disk 384. 


— «jee oe ree ee mee eee 


Insert disk #46 in your CC II and in -FCS enter RUN FORTH. The resronse 
should bet ee 


8080 FIG-FORTH 1.1.90 
OK 


C*OK" is FORTH’s prompt» eauivalent to BASIC’S "READY"), “--> ~~ 
You are now in the FORTH environment. 


II. FUNDAMENTAL CONCEPTS. 


To Print 3 string? . ee aes 

Tyre 

CR .” This is 3 Test!" <er> 

(Note- If you make 3 typing mistake use DELETE CHAR» not left arrow). 
ResPonse- ' : 

This is 2 Test!OK Sl ‘ 

Exe Lanation— . 
CR is the FORTH word that issues 3 carrisase return so the cursor will 

move to the next line. .” is the FORTH word which says print literally 
everything that follows me until you see 32” |. The FORTH prompt immediately 
came up after execution of the command. 

Note: All FORTH words must be separated by spaces. In fact EVERYTHING 

that is delineated by spsces is either 2 word or 2 number except items 

such as the text given in the above example. If we had tyured- CR 

-*This is 3 test!*»s FORTH would try to find the word ."This and having 
fsiled» would have issued an error message. 

Note’ For this lesson we shall not be writing programs but instead using 


FORTH interactivelys similar to using BASIC commands such as? ? 2+3 
(print the sum of 2 and 3). Writing programs in FORTH will be covered later. 


The "FORTH stack” or "user stack” or simply "the stack”s 

All FORTH numbers are integers. As YOU wishs they may be unsigned and 
ranse from 0 to 65535 (decimal) or signed and range from —-32768 to #32767 
(deciaal ). 

TyPing a@ number and <cr> pushes that number on the stack. 

TyPe- 

1234 <er> 


Resronse— 


OK 


‘Exp Lane tion- The decimal integer 1234 is Put on the stack. 
To see the number sssin»y use the word . ° 
Tyre 
. <er> 
Rese onse— . sta 
1234 OK 
Exp Lanstion— .» pops the topmost number off the stack and prints it as 3 
signed number. It destroys (ersses) the number on the stack. To see 
thst indeed it is destroyeds enter . “<cer> asain and get 3 "stack empty” 
error message (MSG #1). 
To erint the number without destroying its first use DUP followed by . 
Ture- 
-548 DUP . <er> 
ResPonse- 

-348 OK 
Exe Lanation—- -548 pushes the signed integer -548 onto the stack. DUP 
duplicates its i-e. copies it to the next stack level. Then . prints 
the copied versions leaving the orisdinal unaltered. To see thiss ture 
« <cer> and see -548 printed one acre tinmee By this last operation we 
have now removed -548 from the stack. : 
The stack is 2 "push-down” or LIFO (last-ins first-out) stack. That is 
if subsequent numbers are entereds thes sre placed on the tor of the 
stack snd will be first to leave. 


Tyre- 


12 34 <cer> 


ResrPonse— 
4321 OK 


Explanstion—- The first line enters 1 into the first stack positions 

2 into the seconds etc.. The second line prints the top of the stack 
(last entry) firsts then <having destroyed the 4) prints the new top of 
the stack (3)» etc... 


FORTH uses RPN (Reverse Polish Notstion) or "rostfix"® notation in 
almost all that it does (similar to HP calculators). 


Enter- 
23-4. <er> 
Resronse- 
S OK 
Exe lanation— 2 and then 3 are pushed onto the stack. The FORTH word + 
takes the top two words on the stack (destrosing them in the process) sdds 
them snd puts the sum on the tor of the stack. Our familiar word . 
prints the sum. 
Notations 
The stsckK is so central in so much that FORTH does that 2 notational convention 
hss been devised for clarifying the meaning of words that use the stack. 
For examples + may be defined as 
nin2 -> sum 
OP. Gash “See - mi n2 >>> sum - 
This simply seans that the top of the stack (n2) and the next value down (ni) 
are added and replaced on the stack by their sum. The notation only 
shows stack elements that sre affected by the orerstions there may be 
many sore numbers on the stack under these top few. 
Similsrlys the FORTH word *® is defined as 
mi n2 >>> prod 


or nil n2 >>> nixn2 
ni n2 >>> ni-n2 


ni n2 >>> ni/n2 Cintesger arithemetics no remainder). 


Other stack sanirulations ere 


DUP : nl >>> ni nl 
SYAP ni n2 >>> n2 nl 
DROP ni >>> (destroys tor element on stack). 


See the "FORTH Hands Reference” for more FORTH stack words. 


As you Play with the stack (38s you need to to get s feel for it)s it 
would be nice to have a FORTH word that showed what was on the stack (bottom 
to-torp) without destroying the contents of the stack. Fis-FORTH has 
no such word but we can make one up (without explanation for the present) 
by enteerins the following (exactly ss tyrpeds one space can be replaced 
by multiple spsces and vice verss but don’t put 3 srace where there 
is one or remove one between words): 
$ DEPTH SO @ SP@ - 2 ¢/ 1 = $ 
: eS CR DEPTH IF SP@® 2 - SO @ 2 - pao tft @.,. 

-2 +LOO0P ELSE ." EMPTY ° THEN 5 
The new word .S will nondestructively print out the stack. 
Tyre 


12 34 <er> 
eS eS eS <er> 


Resronse- 


34 OK L 
Exe lanation—- The stack is printed from the bottom to the tor. The fact 
that it is not destroyed is illustrated by the fact that we can rereat it 
several times. 
Tyre 
SWAP .S <er> 
ResPonse—- 


12 43 OK 


Explanation- The top two stack elements sre swarpreds just 3s they sre 
supposed to be. 


Tyre- 

+ eS <cr> 
ResPonse— 
12 7 OK 


Exp lsanation—- + adds the top two stack numbers and leaves their sum. 


Next time- NUMERIC OPERATIONS. 


PUR IN NAMI MEFreanhEaNve 


' 
, 
i Stack inputs and outputs are shown: top of stack on ngnt. Operand key: n.ni,... 16-bit signed numbers 
* H This card follows usage of the Forth Interest Group d, d1,... 32-dit signed numbers 
> (S.F. Bay Area); usage sligned with the Forth 78 is u 16-bit unsigned number 
é international Standard. ader address 
For more into: Forth interest Group b &-dit byte 
P.O. Box 1105 ’ ¢c 7-dit ascii character value 
\ San Caries, CA $4070. t boolean flag 
t 
i STACK MANIPULATION 
} cup (n—an) - Duplicate top of stack. 
; OROP (n= ) Throw sway top of stack. 
' Swap (al n2 — v2 nt ) Reverse top two stack items. 
| OVER (nt n2 — ni m2 nt) Make copy of second item on top. 
ROT (nt m2 n3 — n2 13 nt) Rotate third item to top. 
-OuP (n—n?) Ouplicate onty if non-zero. 
>R (n= ) Move top item to “return stack” for temporary storage (use caution). 
> ( ~An) Retrieve item from return stack. 
= R ( An) Copy toe of return stack onto stack. 
NUMBER BASES 
OECIMAL (-) Set decimal base. 
HEX {-) Set hexadecimal base. 
BASE ( — eda) . System vanabie containing number base. 
ARITHMETIC AND LOGICAL 
+ (nt r2 — am ) Add. 
Or (41 @2 — sum ) Ace double-precision numbers. 
- (nt a2 — aft) Subtract (ni=n2). 
e (ni m2 — prod ) Muitipty. 
/ (nt n2 — quot) Oivide (m1 /r2). 
MOO (nt n2 — rem ) Moduio Le. remamnder from division). 
AaQO (nl n2 — rem quot ) Chade, grwng remander and quotient. 
*7Oo (nt a2 93 — rem quot) Muinpiy. then dmde (n1°n2/r3), with doudie-precision intermediate. 
ey (nt mp2 m3 — quot) Uke °/MO0, but grve quotient onty. 
MAX (nt m2 — mex ) Maxanum. 
MIN (at m2 — mn) Miner. 
ASS (2 — abdeoiute ) Absoaste valve. 
oOass (¢@ — eects ) Assocate value of Goubie-precision number, 
MENUS (rn--—m) Cnenge sign. 
OMINUS (@—-d) Change sgn of doudie-precision number. 
ANO (nl 2 — and) Logica! ANO (bitunse). 
OR (at n2— or) Logical OR Ditwrse). 
xOR (at m2 — mor) Logcal exciuarve OR Ditwise). 
COMPARISON 
< (nt a—f) True #1 lees than a2. 
> (at n@—f) True if nt greater than n2. 
se (nt n—?t) True # top two numbers sre equal. 
-O< (nm) True if top number negative. 
o= (n—f) True if top number zero (La, reverses truth veiue). 
MEMORY ‘ 
e@ ( ad@r — nh) Replace word address by contents. 
! (nr ecte = ) Store second word af address on top. 
co . - (acm — B) Fetch one byte onty. 
a (6 edar = ) Store one byte onty. 
\ ? (edar = ) Pring contents of address. 
; Bal (® eddy = ) Add second number on stack to contents of address on top. 
¥ COVE (from tou— ) : Move u bytes nm memory. io 
: Fa. (ati ub—- )- Fal u bytes in memory with b, beginning st address. 
GRASE (adr u— ) Fal u bytes in memory with zeroes, beginning af address. 
e GLANKS (ad@ru- ) - Flu bytes in memory with bienks, begnning at address. 
* CONTROL STRUCTURES 
60... LOOP dcx ( end+? start — ) Set up loop, given index range. 
| 8 ( = index ) Place current index veive on stack. 
’ LEWE (-) Terminate loop st next LOOP or +LOOP. 
t 00 ... #.0OP Ga ( end+1 start — ) Like OO... LOOP, iat adds stack value (insteed of atweys ‘1') to index. 
5 tec (n= ) 
@... Que)... ENO E(t— ) 8 top of stack true (non-zero). execute. [Note: Fors 78 uses IF... THEN] 
{  wlllewe)... BSE E(t = ) Same, but if ise, execute ELSE clause. [Note: For 78 uses IF... ELSE... TH 
° -.-Gatse). .. ENO 
| BEGIN... UNTER untk (f= ) Looe beck to BEGIN unt# true at UNTIL. [Note: Forn 78 uses BEGIN. .. END] 
Vt gece. wee 0 enti (1 = ) Looe while true st WHILE: REPEAT loops unconditionally to BEGIN. 
.-. REPEAT tote: Form 78 uses BEGIN... F ... AGAIN] 


RMINAL INPUT-OUTPUT 


(a= ) 
(7 fleidwncth — ) 
(@—- ) 
(@ fleidwidth —- ) 
(=) 
CE {-) 
CES (n= ) 
ieee | 
AP (ad@un- ) 
€ (addru- ) 
JNT ( addr — addr+1u) 
RMINAL ( -¢) 
J (-o¢) 
T (c= ) 
‘Scr ( ae-) 
RO tce-) 
2UT-OUTPUT FORMATTING 
ABER ( addr - d) 
(-) 
(@-@) 
(a@-00) 
N (n@~—@) 
(¢@ — adr) 
D (e= ) 
5K HANOLING 
r ( screen — ) 
Pe} ( screen = ) 
CK ( Block = adar ) 
UF ( =n) 
, “( ~ adr) 
7 ( 7 aoa) 
MATE { =} 
SH C=) 
7TY-BUFFERS t=-—) 
FINING WORDS 
x (=) 
t-}) 
NABLE xxx (n= ) 
mx ( — add) 
NSTANT wo (n=— ) 
umxz({ —aA) 
2€ ox (-) 
o€ (=) 


gies «| 
~~ 


SCELLANEOUS AND SYSTEM 


IGET max 
RT 


EERE 


aa 
vo 
ww 


Print doubie-precision number. ial ata in field. 
Oo a carnage retum. 

Type one space. 

Type n spaces. 

Print message (terminated By *) 

OQump u words starting at address. 

Type string of u characters starting at adcress 
Change lengifi-tyte string to TYPE form. 

True if terminal break request present. 

Read key. put ascx vaiue on stack. 

Type ascu vaiue from stack. 

Read n characters (or unt carnage return) from input to address 

Read one word from input stream, using given character (usuaily blank) as delamniter 


Convert sinng at address to double-precis:on number. 

Start output sinng. 

Convert next digit of double-precision number and add character to output string. 
Convert all significant digits of Gouble-precision number to output string. 
insert sgn of n into output string. 

Terminate output stnng (ready for TYPE) 

insert ascu Character into output string. 


st a disk screen. 

Load disk screen (compile or execute). 

Read disk Biock to memory address. 

System constant greng dism biock s:ze in bytes. 


Gegin colon defimtion of xxx. 
Eng colon detintion. 
Create a venadie named 12x with invtia! velue rr returns address when executed. 


Grete 8 constant named x22 with vaive fr retumne vaiue when executed. 


Begin defimtion of assembiyanquege onmutive cperahon named x22. 

Used to create a new defimng word, wth execubore-hme “code rounne” for this data 
type m assembly. 

Used to creste a new defining word. with executior-hme routine for thes data type = 
higher-tevel Forth. 


Returns address of pomnter to context vocabulary (searched first}. 
Returns address of pomter to current vocabulary (where new defirsbons are pul) 
sp eign ccm Soi lice aa 


Gegn comment. terrensated by."gM paren on same kne: space after ( 

Forget a! defirstions back to and nciucng 222. 

Esror of operation 

Fae address of 222 m the achonary: if used in Gefireton. compde address 
Returns address of next unused byte m the cchonary. 7 
Returns adcress of scratch area (usualy 68 bytes beyond HERE). 

System vanabie contanng offset into input Buiter. used. e.g. Dy WORD. 
Returns address of top stack item. 

Leave a gap of n bytes in the dichonary. 

Compsie a number into the dchonary 


CHIP FORTH COURSE 
Springs 1984 


James C. Minor 


Lesson #2: Numeric Orerstions 


We continue cur studs of Forth by examining how Forth interrrets, stores: 
and disalays numbers. 


There are proposed standards for sdditians to Forth cf floating—ecint 
number routines but in all "official" versions to date all Ferth 
numbers sre intesers. The integers we have been desling with ue to 
now have been sindgle-precision numbers occusying tuo memory locations 
(i-@. 2 bytes). The single-rerecisicn integers may be signed (have 3 
nesSative sign if sprprorriste) or unsidned (not allow 3 minus sign) as 
YOU direct Forth to interreret/dismlay them. Unsigned sinsle-rrecisisn 
integers can lie in the range 0 to 639536. Signed sinsgle-precisicn 
intesers can lie in the ase -329768 ta 329757. 


How do YOU srecify eulius wou are deslins with signed or unsigned intese 
Qn inrput (Keyboard input or program ineut) Forth is vers secomedstins: 

If you use 32 negative sign it will take smrrorriate action to interrret 
the number 2s 32 nesstives If no sign is used it will desl with the numser 
as unsigned. 


The real Kes to this integer handling is haw the integer is stored in 
those two butes. The integer is stored in the two butes (15 Bits) in 
"two’s complement” form. What this means is thst all integers between 
0 and 329747 are stored the same for both signed and unsigned intesers. 
For numbers outside this range there is sn sadisguity that is best 
illustrated by the following tadle: 


Fs 


o 


EQUIVALENT INTERPRETATIONS OF SINGLE-PRECISION TWO’S COMPLEMENT INTESENS 


2’°S COMPLEMENT UNSIGNED SIGNED 
00000000 00000000 fo) fo) 
00000000 900000001 5 1 
00000000 90000010 2 as 
00000000 90000011 3 3 
OLLLLLIL 11111110 29756 3253756 
OLLALLL1I1 11111111 29767 329757 
10000000 00000000 325768 -32 5763 
10000000 00000001 29769 329757 
10000000 00000010 329770 329755 
10000000 900000011 29771 -32 9765 
11111111 111111900 6359532 -4 
LLDLL111 11111101 65 9533 -3 
2121111111 11111110 659534 -2 
TLLLL1L11 11111111 63553535 -1 
00000000 00000000 fo] 0 
00000000 00000001 1 1 
00000000 00000010 2 2 
00000000 00000011 3 3 

etc. ete. etc. etc. 


(For the curious: The 1’s complement of 3 nusber is found by takins the 
Binary representation and changing every 1 ta 32 0 and 0 ta 2 il. 

The 2’s complement takes the 1’s complement and adds one (1) to the 
result. In the sboves the nedative of 3 nusber is represented by the 
2’s complement of that number. Trs working 3 couple aut. 


We can see this for ourselves by defining the following new word 


(Well explain latter what we’re doing here. For nows simels enter the 
following characters. ) 


& 0B 2 BASE !-U. DECIMAL 5 


When we now type ”.B” (dot-B)» we’ll set 3 (destructive) display af the 
tom of the stack in binary notation. Thus we can enter 


1234 CR .B .B .B .B <RETURN> 
and get back 


100 11 10 1 OK 


Similarly» 

32757 DUP CR. .B <RETURN> 

would give us 

32767 O1L1111111111111 OK 

and 

32748 BUP CR. .B <RETURN> 

produces 

-327457 1000000000000000 OK 

Thus we entered 32768 but we gat Back -32757 ! Yets we’re surrased to 
get a2 range of 0 ta 652555 in unsigned numbers IF WE CHOOSE. How do we 
make that choice? The answer is rather straishtforward: there is 
another fisg-FORTH words U. » which prints whatever is on the stsck 23s 
an UNSIGNED integer. Thus we could enter 

32743 DUP DUP CR .B Ue. . <RETURN> 

and get 

1000000000000000 32748 -327463 OK 

Thus the intereretsation of the contants of the stack is u» to us. 

It will be sidned if we use ® .” and unsisned if we use * U. ”. 
Internally Forth doesn’t distinsuish between signed snd unsigned 
numbers. WE have ta Know what we want it ts de. Numbers between 9 and 
32767 will be printed the same redsrdless of whether we use . cr U. . 
If we exceed 3 range» Forth simply "rolls over”» e.g. 

$5535 1 + CR U. <RETURND 

disPlays: 

0 OK 

and $3535 2 + CR U. <RETURN> 

gives S 


1 OK 


S, 


= 
We’ ve alreads seen the effects of the Forth math orerstors +» -» ¥» snc 
Howevery % and / are designed for signed nusbers. For comrparssle 
unsigned operationss use UX snd U/ . We now look st some additicns! 
Forth msth tools. 


Just as / leaves the inteser quotient (i.e. ni n2 --> auct)» mon 
lesves the remsinder ( nl n2 --> rem ). 


Thus 

17 3 / »« <RETURN> 

produces: 5S OK 

(the integer portion of 17/3) and 

17 3 MOD . <RETURN> 

gives: 2 OK 

(the remainder of 17/3). 

An additionsl words /MOD»s sives both (ni n2 -——> rem auct). Sa 

17 3 /MOD . . <RETURN> 

diszlays 

S$ 2 OK 

The designers of Forth feel that slmast snuthing can be sccamelished 
with integer arithmeticy all you have to do is learn to “scale” 
prorerlys i.@. multiply bs 3 factcr on ineut and ocuteut. Quite often 
this factor is 2 fractions i.@. you want ts Soth multiely and divide. 
Howevers you can lose precision this was. For instances if you went to 
scsle 3 number by the factor 9350/1000. If you decide to multiply first», 
then you must limit the aultirwlicend to be less than 65:555/950 < 47. 

On the other hands if we opt ta divide by 1000 firsts any number between 
0 and 999 will compute the same as 0 (@.9d. 876 1000 / -—=> 0)» any numoder 
between 1000 and 1999 will commute the same 3s 1000» etc. sao we effectivels 
have onls 466 numbers. To set around this there is the Ferth word 

Z/ Cnt n2 nd —> nlXn2/n3) which multirslies first but works with the 
intermediate product (nlXn2) es 2 32 Bit (4 Bute) auantitys therebs 
preserving full precisicn. 

Examples i 


S000 950 1000 #/ . <RETURN> 


demonstrates the sbilitsy ta hold intermediate results (here 49750:906) 
by returning 


47350 OK 


On the other hands it slss has the ability ts distinsuish between neers 
values (which division by 1000 FIRST wouldn’t da) es shown by 


4999 950 1000 */ . <RETURN> 
giving 4749 OK 


The word */ has 3 companion word */MOD (ni n2 nS —=> rem auot) sehicn 
Sives the remainder ss well ss the auctient in this seslins. 


* Other Forth words sou should be familisr with (see the FORTH HANDY 
REFEERENCE) sre ABS (sbsolute value)» MINUS ‘chanse sign)» +- 
(nl n2 --> n3) which transfers the sign of n2 (resardless of the sisn 
of ni) ta nis and to MAX and MIN (nl n2 --> n3) which lesve the larser 
(MAX) or smaller (MIN) of ni and n2 on the stack. 


Other convenient math words sre i+ snd 2+ which increment the tor stack 
value By one and two resrectively. They do the same sas the crersticons 
1 + and 2 + But de so much more rsridls. 


DOUBLE PRECISION: 


So far all we have talked sbaut is signed and unsigned 16 bit ‘(sinsle 
precision) intesers. FORTH also sllows for 32 bit (double Precision ) 
integers. There ranse is 0 ta 4929499675295 unsigned or -22147943515493 

to 2914794835647 signed. For mast practical cases the number is trestead 
as signed. Double precision numbers can be inrut to the stack oxy 
embedding 2 . somewhere in the numbers i.e. .111222355 » 111.2223552 » 

or 111222 « all Look like 3 double precision version of 111222335. 

A single wmrecion value on the stack can Be converted ts 3 double rprecisian 
value via the word S->D . 


A signed double precision number can be printed via the word BD. . 
There is no fis-Forth word for printing unsigned double precision 
numbers (although you could create one if you wished). The word 39.8 

( dn > —- ) prints 3 signed double precision number dy» risht-sligned 
in 2 field n characters wide. We can illustrate these using the 
additional word 2DUP which duplicates the tor tuo values on the stack 
(it maw be viewed as ni n2 —> nl n2 nl v2 or di --> di di). £&. G. 


3867935. 2DUP CR D. CR 10 D.R <RETURN> 
gives 


5386795 
586795 OK 


(the 10 is the width of the field in the BD.R crperation). 


For single precision numbers» 2 word corresponding ta D.R is oR 
(nl n2 —> - » where ni is the numbers n2Z the field width). 


BOOLEAN OPERATIONS 7 


The words AND» OR» and XOR all operste as ni n2 -=> na >» performing 
the lesgical crerations in 2 Bit-wise fashion between ni and n2 ta 
give n3. The truth tables for esch (Pairwise) bit of nl and n2 sret 


i-th Bit of Resultant n3 i-th bit for 
ni n2 AND OR XOR 

Q fo] 8 Q 0 

0 1 6 L 1 

1 t9] te) 1 1 

1 1 1 a 0 


Thus» if I wanted to "toggle" (switch O->1 and 1-20) sll the bits 
in a numbers I could XOR it with 65535 (iliiiitiitilitili binears). 
Exsmples 

79 DUP CR .B CR $5535 XOR .B <RETURN> 

would sive 

1001111 

11111111110110000 OK 

Exercises 

Explain whs 

47 655335 XOR 1+ CR . <RETURN> 


gives 


-47 OK e 


CHIP FORTH COURSE 
Srring: 1984 


James C. Minor 
Lesson #3: Dstea Storage and Transmission 
Ur to this roint we have been inrutings outruting» and maniruletins 
stack values in an interactive fashion. We now get a little fencier 


bs storing and recalling stack values. 


The most rudimentary memory orerstions are ! ("store") and @ i"fetch”). 
The Forth word ! is defined es 


€ n’ addr 3>> 3 


and takes the 16-bit (two Byte) values ns and stores it st the sddress; 
sddrs removing those two values from the stack in the rrocess. 


Thus the command 
-25 50000 ! (RETURN) 


will store the (two byte) number -25 in sour CCII’s memors locetisons 
50000 and 50001. 


The value mas be "fetched" with the Forth word @ which is defined es 
€ addr >>> n 3} 


i.e. the address on the stack will be replaced by the (two oxyte) 
number st that sddress. 


Hences following our previocus instructions 

50000 @ . ‘¢RETURN) 

will sive us 

-25 OK . 

A double precision number may be stored by the command 2! » e.s. 


S23. 50002 2! (RETURN) , 


will occurs storade locations 500025 50003» 500045 sand 50005 with 
the binary form of 523. 


The number may be recalled and printed with the commands 2@ asnd Oe, viz: 
50002 2@ D. (RETURN) . 
will Print 


523 OK . 


Frequently it is necessars to desl with chsracter values, i.e. @- hi 
velues (e.g. ASCII values). To store snd fetch these we use C! and 
C@ (rronounced C-store sand C-fetch resrectively). C! sssumes that 

on the stack the chersecter occuries two Estes with the high bute zere. 
On execution the low byte is stored snd the hish bste is lost. 


Thus 


32 50006 C! (RETURN) 


will load 32 es & two byte vslue on the stack (in binsrsr 00999005 
00100000) and thens throush C!s save the low-order byte (901900900 = 
in locstion 50005 (only) end throw the hish-order bute (00000000) su 
Similarlys C@ fetches the single bute st the designated sddress;s 
stuffs it into the low-order rosition on the tor of the stack anc 
fills the high-order bute rosition on the stack with 0. Hence,» 


30005 C@ . (RETURN) 
Sives 
32 OK . 
Another stsck-memory word is +! which is dericted es 
€ nm addr >>> 3 
This hands word takes the (two-bute) number ns adds it to the number 
stored at addrs and takes both n and addr off the stack. From this 
we can see that 
75 50000 +! S0000@. (RETURN) 
will give us 
sO OK 


based on the value of -25 stored at 50000 from the previous exsmzle. 


Block Orerstions: 


There are several Forth words that sallow memory block orerstions. 

The first of these that we shall exsmine is FILL € sddr nb Oss } 
which takes byte b (really a character on the stacks high-order value 
is zero) and fills n consecutive locations in memoryy starting st 
addr. Thus 


52000 100 32 FILL ¢ RETURN ) 


will fill memory locations 52000 throush 52099 with the bste S2 
(ASCII blank). This can be verifieds for examples by 


52050 C@ . 


which will give 


We have two words which may be viewed ss srecislized ceses of 
ang they are ERASE € sddr n >> 3 and BLANKS € addr on Fe? 3 w 
fill nm consecutive memors locations staring st addr with ASCI 
(00) and ASCII blank (32). Thus» the shove example is functi 
eauivelent to 


32000 100 BLANKS (RETURN) . 


A powerful block oreration is CMOVE € sddri addr2 n >>> 3 which 
cories the n consecutive bytes starting at addri to the n consecutive 
locations starting st sddr2, one bute at 3s time. Thus 


52000 52100 100 CMOVE (RETURN) 


will cory the 100 ASCII blanks in 52000-52099 to 52190-52199. 


CONSTANTS and VARIABLES 


We now enter an imrortant new phase of our understanding of FORTH; 
we start to define new terms. 


Definitions: 


A CONSTANT is a2 word used to store 3 single unchanging value in 
memory. This value is sinsle precision (i.e. two Bstes) snd nas 
be either signed or unsisned. 


A VARIABLE is 3 word used to store 3 value in memors but that 
value may be easily shanged st sny time. This value is alsa- 
Single precision snd mas be signed or unsisned. 


The word CONSTANT € n >>> 3 is executed as 
CONSTANT YOUR _CONST_NAME 


where YOUR_CONST_NAME can be any combination of ASCII sumbols excert 
nulls» blanks and RETURN up to 31 characters longs. .In most cases 
you won’t want to use rreviously defined names. 


Execution of the sbove command will cause the Forth INTERPRETER 
(which we’ve been using almost exclusively ur to now) ta call on 
the Forth COMPILER to enter 3 new entry ¢( YOUR_CONST_NAME) into the 
Forth DICTIONARY (we’1ll describe where this is later). Associsted 
with this name is the value» ns that was on the tor of the stack 
when the above command was executed. For exsmrle» 


-673 CONSTANT MY_CONST (RETURN ) 


will cause 3s constant called MY_CONST with 3 value of -é657 to be 
Compiled into the Forth dictionars. 


We have Just defined 3 new word called MY_CONST € >>> n 3. When 
it is executed (simply by turing it in) it will Flsce the value 
-637 on top of the stack. I.E.» 


MY_CONST . (RETURN) 


The word VARIABLE C€ n 32> 3 is very similar to CONSTANT excer 
the defined word is executeds it returns its sddres toa the st 
Thuss 


+ when 
eck. 
294 VARIABLE MY_VAR (RETURN ) 


creates 8 new Forth word (MY_VAR € 32> addr} ) in the Forth dictisners 
with 8s value of 294 associated with it. Bs entering 


MY_VAR U. (RETURN) 


we’ll get some number rerresenting the memors sddress of MY-VAR. 
To retrieve the value of MY_VAR we simply use @ ¢ 


MY_VAR @ . (RETURN) 
which will now disrlay 
294 OK . 


The resson we went the sddress is returned is that this is 8 varies 
which mesns we rprobsbls intend on chansding it. To do so -we simels 


S9S MY_VAR ! (RETURN) 

The above statement ruts 595 on the stacks then ruts the address of 
MY_VAR on the stack and then stores 595 at the address. To see 
that this indeed is what harrened enter 


MY_VAR @ . (RETURN) 


which gives 


We can Go other operations such ss 

5S MY_VAR +! (RETURN) 

which will increment the 595 in MY_VAR to 500 as seen bs 

MY_VAR @ . (RETURN) 

600 OK . 

Another Forth words USER € n >>> }» is the same 3s VARIABLE excert 


the new word is compiled into 8 srecial section of the Forth dictioners.— 
This has special applications that won’t be sone into here. 


